﻿Public Class clsLSnippet
    Private _frm As New frmLSnippet
    Public ReadOnly Property IsFormVisible As Boolean
        Get
            Return _frm.Visible
        End Get
    End Property
    Public Sub HideForm()
        _frm.Hide()
    End Sub
    Public Sub CloseForm()
        _frm.bAllowClose = True
        _frm.Close()
    End Sub
    Public Sub ShowSnippet(WU As clsWU, Optional HistoryForm As frmHistory = Nothing)
        Try
            If Not _frm.Visible Then _frm.Show()
            _frm.ShowSnippet(WU, HistoryForm)
        Catch ex As Exception
            WriteError(ex.Message, Err)
        End Try
    End Sub

End Class
